home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tskerm25.zip / SAMPLE.CLL < prev    next >
Text File  |  1988-08-12  |  2KB  |  35 lines
  1. ;
  2. ;                 SAMPLE.CLL by Timo Salmi 12-Aug-88
  3. ;
  4. ; This script file demonstrates how to build an autodialing system to be used
  5. ; with the take command. This particular script calls a VAX/VMS system.
  6. ;
  7. CLEAR                      ;Clear the input buffer
  8. SET COUNT 3                ;Set the counter (substitute 3 with your choice)
  9. OUTPUT AT\13               ;Wake up the modem
  10. :TRYAGAIN                  ;Label for returning (use <ESC> for exiting>
  11. PAUSE 4                    ;Let it get ready
  12. OUTPUT ATDT9999999\13      ;Call the VAX (substitute the relevant number)
  13. INPUT 35 CONNECT 1200      ;Wait for a connection (you can try to decrease 35)
  14. IF FAILURE GOTO NOCNECT    ;Just what it says
  15. OUTPUT \13                 ;Start the login sequence
  16. INPUT 20 Username          ;Wait for Username prompt
  17. IF FAILURE GOTO ERR1
  18. OUTPUT USERNAME\13         ;Substitute your username here
  19. INPUT 20 Password          ;Wait for the password prompt
  20. IF FAILURE GOTO ERR2
  21. OUTPUT SECRET\13           ;Substitute your password here
  22. GOTO CNECT                 ;To making the connection
  23. :NOCNECT                   ;Subroutine for no connection
  24. IF COUNT GOTO TRYAGAIN     ;Try again until count is exhausted
  25. ECHO Failed to get a carrier in three attempts\13
  26. HANGUP                     ;Just to make sure
  27. STOP                       ;Enough!
  28. :ERR1
  29. ECHO Failed to encounter the username prompt\13
  30. STOP                       ;Return to the manual method
  31. :ERR2
  32. ECHO Failed to encounter the password prompt\13
  33. STOP                       ;Return to the manual method
  34. :CNECT                     ;We've made it!
  35. CONNECT